home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 November / 64er_Magazin_84-11_1984_Markt__Technik_de.d64 / list 1+2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  564 b   |  28 lines
  1. 100 rem ****************************
  2. 110 rem *                          *
  3. 120 rem *     beispielprogramm     *
  4. 130 rem *                          *
  5. 140 rem * zu D, DE + DG *
  6. 150 rem *                          *
  7. 155 rem * D7, D8 + D9 *
  8. 156 rem *                          *
  9. 160 rem ****************************
  10. 170 rem
  11. 175 D7 "s",:D2 DF
  12. 180 D 10,2
  13. 190 printD(0,20)" ";
  14. 200 for i=0 to 255:rem _ alle zeichen
  15. 210 : poke 55296+i,0:rem farbe: schwarz
  16. 220 : poke 1024+i,i:rem  zeichen
  17. 230 next i
  18. 240 DE 2,1,6,5
  19. 250 DF 10
  20. 255 D8
  21. 260 DG
  22. 270 end
  23. 280 D1 DF
  24. 290 printD(0,20)"pause"
  25. 300 DF1
  26. 310 printD(0,20)"     "
  27. 320 D9
  28.